﻿Public Class frmBuscarCierreCaja 

    Private Sub frmBuscarCierreCaja_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        VcierrecajaTableAdapter.Fill(DbFireAndIceDataSet.vcierrecaja)
    End Sub

    Private Sub btVer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btVer.Click
        Dim idcierre As Integer = GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "idcierrecaja")
        My.Forms.fCierreCaja.IdcierrecajaTextEdit1.EditValue = idcierre
        My.Forms.fCierreCaja.MovimientoscajaTableAdapter.FillByRangoCierreCaja(My.Forms.fCierreCaja.DbFireAndIceDataSet.movimientoscaja, _
        GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "numticketinicial"), _
        GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "numticketfinal"), _
        GridView1.GetRowCellValue(GridView1.FocusedRowHandle, "nombrepc"))
        Close()
    End Sub
End Class